HH=0
BZ=0
L0=LEN(T1)
T2=SPACE((61-L0)/2)+T1+"("+STR(CR,3)+")"+SPAC((61-L0)/2)
SET COLO TO 7+/6
@ 4,4 SAY T2
IF BJ<>0
@ 4,4 SAY "["+STR(BJ,1)+"]"
ENDI
SET COLO TO 0/3
@ 6,4 CLEA TO 20,75
LH=4
DO WHIL ѧ<=L2.AND.ѧ=L5.AND.LH<60.AND..NOT.EOF()
HB=15
HH=0
DO WHIL ѧ<=L2.AND.ѧ=L5.AND.HH<HB.AND..NOT.EOF()
IF ="1"
M1=Ա+"()"
ELSE
M1=Ա+"    "
ENDI
@ HH+6,LH SAY ѧ+" "++" "+M1
HH=HH+1
CR1=CR1+1
SKIP
ENDD
LH=LH+25
ENDD
SET COLO TO 6+/1
@ 24,0
@ 24,0 SAY "PgUp-ǰһ  PgDn-һ  Home-ͷ  End-ĩ 0-˳ ѧ˳ʾ"
DA=INKEY(0)
DO CASE
CASE DA=1
GO TOP
BJ=-1
CR1=0
CASE DA=6
GO BOTT
XH=LEFT(ѧ,5)
SEEK XH
CASE DA=18
SKIP -1*CR1-2
IF BOF()
BJ=-1
CR1=0
ENDI
XH=LEFT(ѧ,5)
SEEK XH
CASE DA=3
SKIP CR-CR1
XH=LEFT(ѧ,5)
SEEK XH
CASE DA=48
XG="0"
ENDC
